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ABSTRACT 



The documentation of a complete proto-compiler consisting of a 
syntax checker and an OS/360 operating system interface for the 
IBM System/360 computers is presented. The system constitutes the 
foundation of a translator writing system based on the language PL360 
and on the SLR(k) parsing algorithm. PL360 provides all the facilities 
of a symbolic machine language but displays an ALGOL-like structure 
for improved readability and programming ease. SLR(k) parsers have 
been shown to be superior to those constructed using precedence 
techniques with regard to the class of acceptable grammars and speed 
of operation. 
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I. INTRODUCTION 



The computer solution to a problem is usually divided into two 
phases: translation of the source language and execution of the 
translated program. The translation process is a mapping of sentences 
from a source language to a target language while maintaining semantic 
equivalence. The target language is usually a sequence of machine 
instructions which directs the machine in the solution of the problem. 
The task of writing a program (compiler, assembler) to perform this 
translation process is generally long and difficult; thus, it has been 
the concern of researchers to automate as much of the compiler writer’s 
task as possible through the use of translator writing systems (TWSs) . 

A TWS automates such functions as scanning text, analyzing syntax, 
synthesizing code, and interacting with an operating system in a 
general manner thereby allowing the compiler writer to concentrate on 
items unique to his translator. 

The objective of the research reported herein was to develop a TWS 
based upon the language PL360 [Ref. 1] and to implement the system on 
the IBM 360/67 computer at the W. R. Church Computer Center, Naval 
Postgraduate School. This goal was not completely achieved since the 
system lacks a PL360 program to analyze a grammar and produce corres- 
ponding tables required by the SLR(l) [Ref. 2] parsing algorithm. 

However, the basis of a TWS has been developed consisting of a syntax 
checker upon which the compiler writer may build, and an OS/360 
operating system interface for the IBM System/360. 
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The next section of this report contains a review of two translator 
writing systems and is intended to provide the reader with some helpful 
background information. A description of the PL360 compiler generator 
is presented in the final section. 
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II, BACKGROUND 



This section explores some concepts and principles of TWSs by 
reviewing two research efforts. An excellent paper by Feldman and 
Cries [Ref, 3] contains a critical survey many such efforts. The 
first system reported herein is that of O’Neil [Ref, 4] and the second 
is that of McKeeman, ^ [Ref, 5], These were chosen because they 
are representative of the two general classes of parsing algorithms: 
goal oriented or top-down methods and bottom-up methods, 

A, THE META PI SYSTEM 

The META PI system is generally based upon a model known as META II 
developed by Schorre [Ref, 6] and his associates at UCLA, It is a 
syntax-directed symbol processor which states the parsing and trans- 
lation functions for a language in a set of BNF-like (Backus-Naur Form) 
rules. These rules include semantic operations within the syntax 
structure describing the language. The basic parsing algorithm is 
simple top-down, lef t-to-right , with backup, 

META PI statements contain three types of elements: 

1, Syntactic elements which are used to generate 
the syntax checker of the user’s compiler, 

2, Semantic elements which affect code synthesis in 
the user’s compiler, 

3, META syntactic elements which enable the user’s 
compiler to resolve possible ambiguities. 

The user produces a compiler by combining these three elements into 
input statements. 
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The general form for a statement is: 

LABEL := expression 

The identifier to the left of the symbol pair is defined by the 

right-hand expression. For example, the definition of IDENT is written: 

IDENT := LETTER$ (LETTER/DIGIT) 

The operator is a prefix iteration operator and indicates that what- 

ever follows may be repeated any number of times (possibly zero) . The 
META PI symbol **/” and the BNF symbol are equivalent. Hence, the 
above rule would be interpreted as: **an identifier is a letter followed 
by any number of letters or digits." Note by the above example that 
unlike BNF, nonterminal symbols are not enclosed in broken brackets. 
Terminal symbols are preceded and followed by and a indicates 

that a system symbol follows. 

The elements that comprise META PI statements are explained in 
detail in Ref. 4; however, their use is illustrated by two examples 
below. 

EXAMPLE 1: 

If a user wished to permit multiple FORTRAN statements on one line, 
he might issue the following command: 

USERCC := STAT. NOP (. CLAMP) $STAT 

where STAT identifies the definition of a FORTRAN statement. The 
semantic command ".NOP(...)" produces the effect of the semantic operation 
".CLAMP" and has no effect on the compiler. It is included only to 
complete the general form of a semantic function, which is 
semantic-command (semantic-operations) 

The operation ".CLAMP" directs the compiler to suppress backup in the 

event of an exit to an error routine. Recall that "$STAT" allows any 
number of statements to follow. 
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EXAMPLE 2: 



To define a read statement equivalent to the BNF format 
<read statement> : := READ <read list> 
the user might issue the following META PI command: 

READ := :READ: RID RID) 

where RID identifies the definition of a read-list element. Note that 
the word "READ'*, the comma, and the semi-colon will be recognized as 
terminal symbols because they are preceded and followed by the colon 
mark. A syntactically correct read statement could thus be 
READ <read-list element> , <read-list element> ; 

META PI generates an encoding of the rule in the user's compiler 
and references it by the unique identifier. When recognition of the 
identifier is established as a goal at compile time, the generated code 
is called and one of three condition codes is returned: 

1. True, the scanned input satisfies the rule. 

2. False, it does not. 

3. Syntax error. 

These three conditions describe the state of the top-down parsing 
algorithm at any given time. For example, assume the assignment 
statement 

DOII =1.5 

is the next input to be scanned. Note the similarity to the DO state- 
ment 

DO 1 I = 1,5 

which differs by the occurrence of a comma instead of a decimal point. 
Assume also that the current goal of the parser is STAT (statement) 
and that all statements are either DO statements or assignment 
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statements. If the parser first attempts to satisfy the subgoal of a DO 
statement, the condition code "false** is returned when the symbol **.** 
is encountered. The subgoal of an assignment statement is then es- 
tablished and satisfied when the code **true** is returned. If the final 
parse attempt had also failed, the code **syntax error** would have been 
returned indicating that STAT could not be recognized. 

Each recognition of an identifier causes a routine in the compiler 
to be executed and, in most cases, machine code to be generated* 

Compilers produced by META PI are generally considered to be some- 
what inefficient but have the advantages of ease of implementation 
and the ability to handle a large class of languages. 

B. THE XPL COMPILER GENERATOR SYSTEM 

In this section, the principles of McKeeman’s compiler generator 
are discussed, concentrating on the parsing algorithm component. The 
system is explained in detail in Ref. 5, which is an excellant intro- 
duction to the construction of TWSs and a user’s manual for the XPL 
programming language. 

The parsing algorithm is a particular type of bottom-up parser. 

The distinguishing feature of the algorithm is that it does not use 
state-of-the-parse information, as top-down methods do; rather, it 
involves examining the canonical sentential form (each string in a 
canonical parse) to determine what unique parse step is applicable and 
then performs a substitution. 

McKeeman’s recognizer is a modification of Wirth’s [Ref. 7] pre- 
cedence concept. A wider class of grammars is acceptable since they 
are not restricted to simple precedence. The mixed-strategy prece- 
dence (MSP) algorithm uses a symbol pair predicate in its stacking 
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decision function and reverts to a bounded context of degree (2^1) 
predicate only in the case of a conflict. The production selection 
function is bounded context of degree (1,1); hence, the parser is called 
MSP (2,1;1,1). Since most triples of symbols cannot occur in a canonical 
parse, two symbols usually suffice to determine whether to accept the 
next symbol in the text and place it on the parse stack or to apply 
a parse step and reduce the top few symbols on the parse stack. Also, 
the number of different triples is so large (over 10,000 for XPL) that 
memory is wasted by tabulating all of them. Thus, McKeeman’s concept of 
MSP is a compromise using Wirth's two-argument precedences whenever 
possible and switching to triples only when necessary. 

The three major programs of the XPL compiler generator system are 
the syntax analyzer, which builds the tables required by the MSP 
algorithm; the proto-compiler with which the user can produce a compiler; 
and the XPL compiler which translates XPL to System/360 machine code. 

The syntax analyzer is a program which accepts the BNF definition 
of a grammar, determines whether the grammar is, in fact, MSP (2,1;1,1), 
constructs parsing decision tables, and punches those tables on cards 
in the form of XPL declarations. 

The proto-compiler uses the cards produced by the analyzer and 
functions as a syntax checker. The user may build on the proto-compiler 
by rewriting the code synthesis routine to implement the semantics of 
the new language to be compiled, and by altering the text-scanning 
routine to correctly interpret the terminal symbols of the new language. 
When this is done, each reduction in the syntax analysis causes the 
code synthesis procedure to be invoked. This procedure is provided 
the applicable production number so that the appropriate machine code 
can be generated. 
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The XPL compiler generator system allows the user to construct com- 
pilers for languages described by relatively small grammars with a 
minimum of effort. 
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III. DESCRIPTION OF THE PL360 COMPILER GENERATOR 



It was decided to design a compiler generator system based on 
McKeeman’s concepts but with two fundamental differences: 

1. The system was to be written in the language PL360 to improve 
the performance of resulting compilers and to provide a more 
compatible interface to standard IBM software. 

2. The parsing algorithm would be DeRemer’s SLR(l) [Ref. 2] to 
increase the class of acceptable grammars and to improve computation 
time. 

A. PL360 

In 1968, Wirth published a formal description of PL360 [Ref. 1], a 
language designed specifically for the IBM System/360. A year later, 
a compiler written by Wirth, J. W. Wells, Jr., and E. Satterthwaite , Jr. 
was made available through the IBM Contributed Program Library [Ref. 8]. 
Several amendments to the original language definition were included 
with the documentation issued with the compiler. Further extentions 
and modifications to the language have recently been carried out, most 
notably by M. A. Malcolm [Ref. 9]. Malcolm’s PL360 manual has incor- 
porated all changes to the language definition and compiler description 
made to date. 

PL360 is a language that provides all the facilities provided by 
System/360 Assembler Language yet exhibits an ALGOL-like syntax. It 
was designed to improve the readability of programs written to take 
advantage of specific capabilities and limitations of the System/360. 
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Such programs are defined by a set of BNF rules and semantic explana- 
tions given in Ref . 9 . 

Some characteristics of the language are illustrated by means of 
examples . 

EXAMPLE 1: 

PROCEDURE NEXTCHAR(R3) ; 

BEGIN IF R5 < 71 THEN R5 := R5 + 1 ELSE 

BEGIN RO ;= (3CARD; READ; R5 := 0; 

END; 

IC(R0,CARD(R5)) ; 

END 

This procedure would be used to insert the next character of the input 
buffer into register RO (bits 24-31). Register R3 contains the return 
address from this procedure so it is important not to alter its con- 
tents. Assume the identifier "CARD" has been previously declared to 
be a byte array of length 80. If register R5 (the column pointer) is 
not less than 71, then a new card is read by setting register RO to 
the address of "CARD" and calling procedure READ. The column pointer 
is then initialized to zero and the first character of "CARD" is in- 
serted into RO. If, however, R5 is less than 71, it is simply incre- 
mented and used as the new index. 

EXAMPLE 2; 

BEGIN INTEGER BUCKET; 

IF FLAG THEN 

BEGIN BUCKET := RO; RO := Rl; R1 ;= R2; 

R2 := BUCKET; 

END ELSE 
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BEGIN BUCKET := R2; R2 := Rl; R1 := RO; 

RO := BUCKET; 

END; 

RESET (FLAG) ; 

END 

This block exchanges the contents of registers RO, Rl, and R2 in a way 
which depends on the value of FLAG (assume FLAG has been declared to be 
a byte variable). If FLAG is true (i.e. if FLAG = //FF) then the first 
statement is executed and the contents of the registers are shifted 
left with R2 being assigned the value of RO. If FLAG is not true then 
the second statement is executed. The integer variable ^'BUCKET** is 
used as a temporary storage location. Upon completion of the IF 
statement, FLAG is set to //OO by a function call on RESET. 

Note the block structure of the language with its attendent scope 
of variables. Note also the register manipulations and symbolic machine 
instructions (IC and RESET) which characterize assembler language. 

B. THE PARSING ALGORITHM 

DeRemer defines a class of context-free grammars called **Simple 
LR(k)** or SLR(k) which includes the simple precedence grammars as 
proper subsets. A method for constructing parsers for SLR(k) grammars 
is shown in Ref. 2; they have been implemented by DeRemer and have 
proven to be superior to corresponding MSP parsers both in the speed 
of parser construction and in the size and speed of the resulting 
parsers . 

For the stacking decision, the MSP algorithm uses at most the top 
two symbols on the parse stack and the next symbol from the input text. 
SLR(k) parsers make the stacking decision based on all the symbols in 
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the parse stack plus k more from the input text. This is accomplished 
by restructuring the stack and saving state~of-the~parse information. 
The operation of the parser will be illustrated by example. 

Consider a sample grammar: 

G : E 

E ; := E + T | T 
T (E) 1 X 

The finite state machine represented in Fig. 1 parses sentences 
generated by the sample grammar. The algorithm is started in state 
0 and passes through a series of states until reaching a state with 
no successor. The indicated rule is applied and the parser is restarted 
in state 0. The algorithm terminates upon reaching state 2 and an end- 
of~file mark is encountered. For example, when in state 1 and the sym- 
bol "x" is encountered, apply the reduction T->x and restart; when in 




Fig. 1 Finite State Machine for the Sample Grammar 



state 3 and the symbol ”(" is encountered, stack the symbol and enter 
state 4. 

The SLR(l) parsing algorithm has been implemented in one of the 
procedures of the proto-compiler. 
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C. THE PROTO-COMPILER 



The program called ^PROTOCOM" forms the basis of the PL360 compiler 
generator system (see Appendix A for the program listing) . It is 
patterned after McKeeman’s proto- compiler and has the same function and 
basic structure, 

PROTOCOM uses SLR(l) parsing tables obtained by manually translating 
the XPL declarations produced by DeRemer’s syntax analyzer [Ref. 10] 
into equivalent PL360 declarations. The output from DeRemer’s program 
is listed in Appendix B. The translated tables are referenced by the 
algorithm contained in procedure ANALYZE to implement the finite state 
machine of a simple grammar. 

ANALYZE calls on procedure PUSHANDREAD or procedure SYNTHESIZE 
based on a decision to stack the current symbol and read a new one 
or to make a reduction and perform the required semantic operations. 
Since code synthesis is not a function of PROTOCOM, SYNTHESIZE exists 
only to maintain flow of control and indicate that its presence would 
be required in a full-scale compiler. 

Procedure SCAN, called from either PUSHANDREAD or ANALYZE, inter- 
prets characters in the card buffer. Upon reaching the end of a card 
image, a call on procedure GETCARD causes a new card to be read. 

The only other major procedure is ERROR which is called from a 
number of other routines; it accounts for syntax errors and prints 
diagnostic messages. 

D. OPERATING SYSTEM INTERFACE 

Assuming that the object program resulting from a compilation of 
PROTOCOM is to be used as a compiler, the problem of communicating 
with an operating system arises. Since PL360 object programs do not 
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communicate directly with an operating system, an interface program 
must be separately assembled and merged with the compiler by the 
linkage editor. 

The existing system uses such an interface (called "PLIO") in the 
OS/360 operating system environment (see Appendix C for the program 
listing). It has entry points to four subroutines which facilitate 
input and output operations. The names and specifications of these 
subroutines are listed below. 

1. READ: transmission of a card image record to PROTOCOM: RO 

contains the address of an 80-byte buffer into which the re- 
cord is to be moved; set condition code to 2 if end-of-file 
is encountered, otherwise set to 0. 

2. WRITE: transmission of a line image record from PROTOCOM; RO 

contains the address of a 132-byte output record. 

3. PAGE: insert the USASI control character "1" into the first 

position of the print buffer. 

4. PUNCH: transmission of a card image from PROTOCOM; RO contains 

the address of an 80-byte output record. 

Two additional subroutines would be required in PLIO if PROTOCOM 
is to be built into a compiler: a system initialization subroutine 
to decode any required parameter list, open required data sets, obtain 
free storage, and supply system identification. A system termination 
subroutine is also necessary to release free storage and close re- 
quired data sets. These enable the operating system to properly iden- 
tify and store the machine code produce by the compiler. 

PROTOCOM uses the data sets described below and identified by their 
DDNAMEs. All data sets are sequential with fixed block format. 
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!• SYSIN: This data set constitutes the input and consists of 

one or more source programs. The logical record length is 80 
bytes . 

2. SYSOUT: This data set contains the compiler output 

listing including diagnostic messages. The logical record 
length is 133 bytes. 

3. SYSPUNCH: This data set contains object code (if any) produced 

by the compiler. The logical record length is 80 bytes. 

At least one additional data set would be required in the event 
PROTOCOM is built into a compiler: a direct access data set to contain 
object code and closed with a disposition of REREAD for further pro- 
cessing, such as linkage editing. 

The job control language required to compile, linkage edit, and 
execute a typical PL360 program is listed in Appendix D. It is assumed 
that the file with DSNAME S0938.PLLIB contains the PL360 compiler and 
its required interface routines. 

The author believes PROTOCOM to be free of errors. The program, 
however, has not been subjected to rigorous debugging. Also, in the 
interest of readability and the lack of a pressing need, no attempt 
has been made to write the most efficient proto-compiler possible. 
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IV, CONCLUSIONS 



It is concluded that the PL360 language is well suited to form 
the basis of a compiler generator system which is to be implemented 
on the IBM System/360. It is fairly successful in providing a tool 
which is superior to assembly code and in meeting the objectives of 
readability and writability. The language is not as easy to use as 
some other high-level compiler-writing languages, such as XPL. The 
execution speed, however, indicates it to be the superior language in 
systems and production programming applications. 

It was stated earlier that the compiler generator system described 
in this paper has not been fully implemented in that it lacks a syntax 
analyzer. The method of manually translating XPL declarations produced 
by DeRemer’s program into equivalent PL360 declarations is conceptually 
simple but tedious for interesting grammars. It would not be a diffi- 
cult task to alter DeRemer’s program to have it produce PL360 de- 
clarations directly. It is recommended that an SLR(l) analyzer written 
in PL360 be added to the system to provide a solution to this problem. 
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APPENDIX A 



$TITLE 

BEGIN 

COMMENT 



PROTO-COMPILER LISTING 

PROTOCOM 

THIS PROGRAM IS A PROTO-COMPILER WRITTEN IN PL360. 

THIS VERSION OF PROTOCOM IS A SYNTAX CHECKER FOR 
THE FOLLOWING GRAMMER: 



<G> 


• • *“ 


<E> 




<E> 


# • 1— 

• • ^ 

1 


<T> 

<E> 


+ <T> 


<T> 


1 


AA 

vv 


=«' <P> 


<P> 




X 





Y 

Z 



COMMENT 



INTEGER 

INTEGER 

INTEGER 



ASSUME THE FOLLOWING CARDS WERE PUNCHED BY THE 
SLR(l) SYNTAX ANALYZER; 

NUMTERMINALS = 6; 

NUMNTS = 4; 

NUiMSYMS = 11; 



ARRAY 11 LONG REAL V = ( 

#C50909D609E2E8D4L, COMMENT 
#00000000006D4F6DLt COMMENT 
#000000000000004EL, COMMENT 
#OOOOOOOOOC00005CL, COMMENT 
#00000000000000E7L, COMMENT 
#OOOOOOOOOOOOOOESL, COMMENT 
#000000000C0000E9L, COMMENT 
#00000000004CC76EL» COMMENT 
#00000000004CC56EL, COMMENT 
#00000000004CE36EL , COMMENT 
#00000000004CD76EL) ; COMMENT 



"ERRORSYM”; 

"_l_" ; 

•» + " ; 

11^ II • 

"X" ; 

"Y"; 

"Z»; 

••<G>" ; 
"<E>»; 

"<T>" ; 

ll<p>ll; 



COMMENT THE DPDA HAS 8 READ STATES; 

READSTART = (#OOOOS, 



ARRAY 8 SHORT INTEGER 

tfOOOBSt #OOODS» i^OOOFS, #0016St #001DS) 



ARRAY 8 
#07X, 

ARRAY 31 
#04X» 
#OOX, 
#02X, 



BYTE RDNUM 
#01X) ; 



#0002S, #0009S, 
= (#01X, #07X, #01X, #01X, #01X, #07X» 



BYTE SYMLIST = (#01X, #OOX, #OOX, #01X, #02X, #03X, 

#05X, #06X, #01X, #OOX, #02X, 

#01X, #02X, #03X, #04X, 

#03X, #04X, #05X, #06X, 



#05X, 

#03X, 



#OOX, 

#06X, 

#OOX) 



#03X, 

#OOX, 



#OOX , 
#01X, 



ARRAY 31 SHORT INTEGER STATELIST = 
#06FFS, #06FFS, #06FFS, #0206S, 
#06FFS, #0105S, #06FFS, #0106S, 
#06FFS, #06FFS, #0206S, #0207S, 
#06FFS, #06FFS, #0206S, #0207S» 



(#0101S» #06FFS, #06FFS, 
#0207S, #0208S, #0209St 
#06FFS, #06FFS, #06FFS, 
#0208S, #06FFS, #06FFS, 
#0208S» #0106S, #06FFS); 



COMMENT THE DPDA HAS 9 REDUCE STATES; 

ARRAY 10 BYTE NUMTOPOP = (#00X, #00X, #00X, #02X, #00X, #02X 
, #oox, nooxt #oox, #02X); 
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ARRAY 10 SHORT INTEGER REDUCESUCC = (#0000S, #00025, #03005, 
#03005, #05005, #05005, #05015, #05015, #05015, #07005); 

COMMENT THE DPDA HAS 3 LOOK-AHEAD STATES; 

ARRAY 3 BYTE LASYMNUM = (#00X, #00X, #00X ) ; 

ARRAY 3 SHORT INTEGER SUCCSTATE = (#02015, #02025, #020351; 

ARRAY 3 SHORT INTEGER FAILSTATE = (#00035, #00045, #00075); 

ARRAY 3 REAL LATABLE = ( 

#40000000R COMMENT <G>;, 

#60000000R COMMENT <E>; , 

#60000000R COMMENT <E>;); 

COMMENT THE DPDA HAS 2 LOOK-BACK STATES; 

ARRAY 2 BYTE LBSTART = ( #00X , #02X); 

ARRAY 2 BYTE LBNUM = (#01X, #01X); 

ARRAY 4 SHORT INTEGER LBSTATE = (#01015, #00005, #01065, 
#00005) ; 

ARRAY 4 SHORT INTEGER RESUMESTATE = (#03015, #03025, #02055, 
#02045) ; 

COMMENT THE SYMBOLS ACCESSING THE STATES; 

ARRAY 8 BYTE SYMBEFOREREAD = (#00X, #01X, #07X, #08X, #09X, 
#02X, #03X, #09X); 

ARRAY 3 BYTE SYMBEFORELA = (#08X, #09X, #09X) ; 

COMMENT END OF CARDS PUNCHED BY THE SLR(l) SYNTAX ANALYZER; 
INTEGER RESERVEDLIMIT = 0; 

LONG REAL V8 SYN V(8); COMMENT SHOULD ALWAYS BE 

ARRAY 30 BYTE ALPHABET = ( «ABCDEFGHIJKLMNOPQRSTUVWX?Z_$a#» ) ; 

COMMENT DECLARATIONS FOR THE SCANNER: 

TOKEN IS THE INDEX INTO THE VOCABULARY VO OF THE 
LAST SYMBOL SCANNED, CP IS THE POINTER TO THE LAST 
CHARACTER SCANNED IN THE CARD IMAGE, BCD IS THE 
LAST SYMBOL SCANNED; 

COMMENT NUMBERVALUE CONTAINS THE NUMERIC VALUE OF THE LAST 
CONSTANT SCANNED; 

INTEGER TOKEN = 1, PRODNUM, NUMBERVALUE, SP; 

INTEGER REGISTER CP SYN R8 ; 

LONG REAL BCD; 

INTEGER BCDHIGH SYN BCD(O); 

INTEGER BCDLOW SYN BCD(4); 

ARRAY 80 BYTE CBUF; COMMENT CARD BUFFER; 

COMMENT EXITFLAG IS USED TO INDICATE END OF COMPILING; 

BYTE LISTFLAG, ENDIT, EXITFLAG = #00X; 

COMMENT XR IS THE ERROR ROUTINE PARAMETER REGISTER; 

INTEGER REGISTER XR SYN R5 ; 

SHORT INTEGER ERRCOUNT = OS, CARDCOUNT = OS; 

INTEGER EOFILE, NUMBER, IDENT, DIVIDE; 

LONG REAL CONWORK; COMMENT USED TO CONVERT TO DECIMAL; 

BYTE TRUE = #FFX, FALSE = #00X; 

SHORT INTEGER PREV lOUS ERROR, ERRLIMIT = 50S ; 

ARRAY 132 BYTE BLANK = 132 (" "); 

ARRAY 132 BYTE WBUF; COMMENT WRITE BUFFER; 

INTEGER MASK = #OOOOOOFF; 

INTEGER MASK? = #00000007; 

INTEGER MASKFFFF = #0000FFFF; 

INTEGER BLANKMASK = #40404040; 

INTEGER MASKl = #00000001; 
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INTEGER MASKFFOO = #OOOOFFOO; 

LONG REAL VR3; 

INTEGER VR3HI SYN VR3(0J; 

INTEGER VR3L0W SYN VR3(4); 

ARRAY 256 BYTE CHARTYPE = 256(1); 

ARRAY 256 BYTE NOTLETTERORDI GI T = 256(1); 

ARRAY 256 INTEGER TX ; 

INTEGER TEXTLIMIT = 71; COMMENT SCAN TO CBUF (T EXTL IM IT ) ; 
ARRAY 10 BYTE NUMS = ("012345678 9''); 



FUNCTION SETZ0NE(8,#96F0) ; COMMENT FUNCTION TO SET ZONE; 

PROCEDURE ERR0R(R4J; COMMENT PRINTS AND ACCOUNTS FOR ALL 

ERROR MESSAGES; 

BEGIN INTEGER SAVE4; 

SAVE4 := R4; RO := ERRCOUNT + 1; ERRCOUNT := RO; 

IF RO > ERRLIMIT THEN GOTO X; 

COMMENT IF LISTING IS SUPPRESSED, FORCE PRINTING OF 
THE CARD BUFFER; 

IF -.LISTFLAG THEN 
BEGIN 

RO := CARDCOUNT + 1; CVO ( RO , CONWORK ) ; 
UNPK(3,7,WBUF(45) , CONWORK) ; SETZONE( WBUF(48 ) ) ; 
MVC(79,WBUF(52) ,CBUF) ; RO := 3WBUF; WRITE; 

MVC(131 ,WBUF, BLANK) ; 

END; 

MVCI 9, WBUF, ERROR,"); 

CASE XR OF 
BEGIN 

NULL; COMMENT CASE 1 NOT USED; 

BEGIN 

R1 ;= aWBUF(CP+52) ; MVI("|",B1); 

MVC( 17,WBUF( 11) , "ILLEGAL CHARACTER:") ; 

END; 

BEGIN 

MVC( 15,WBUF( 11) ,"STACK OVERFLOW. ") ; 

SET( EXITFLAG) ; 

END; 

BEGIN 

MVC(19,WBUF( 11 ), "ILLEGAL SYMBOL PAIR:"); 

END; 

BEGIN 

MVC(24,WBUF( 11) , "PROGRAM ENDS PREMATURELY."); 
SET( EXITFLAG) ; 

END; 

END; 

RO := aWBUF; WRITE; MVC ( 131 ,WBUF ,B LANK ) ; 

IF EXITFLAG THEN GOTO EXIT; 

RO := ERRCOUNT; 

IF RO > 1 THEN 
BEGIN 

MVC (34, WBUF, LAST ERROR DETECTED ON LINE "); 

RO := PREVIOUSERROR; CVD(R0 , CONWORK) ; 

UNPK(3, 7,WBUF(33) , CON WORK) *, SETZONE ( WBUF ( 36) ) ; 
MVC(4,WBUF(37) , ". rq := aWBUF; WRITE; 

MVC(41, WBUF, BLANK) ; 

END; 

RO := CARDCOUNT; PREVIOUSERROR := RO ; 

RO ;= ERRCOUNT; 

IF RO = ERRLIMIT THEN 
BEGIN 

MVC(20,WBUF,"=<==«'=s TOO MANY ERRORS, "); 
MVC(21,WBUF(20) ," CHECKING ABORTED. #=:'*"); 

end; 

X: R4 := SAVE4; 

END; 

PROCEDURE GETCARD(R4); 

COMMENT DOES ALL CARD READING AND LISTING; 

BEGIN INTEGER SAVE4; 

SAVE4 := R4; RO := aCBUF; READ; 
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IF -^= THEN COMMENT SIGNAL FOR EOF; 

BEGIN 

SET(ENDIT) ; MVC(79,CBUF, BLANK); 

MVC(10,CBUF," EOF; END; EOF" ) ; 

END; 

COMMENT CAROCOUNT PRINTED ON LISTING; 

RO := CARDCOUNT + 1; CARDCOUNT := RO; 

IF LISTFLAG THEN 
BEGIN 

CVO(RO,CONV;ORK) ; UNPK { 3 , 7, W BU F ( 45 ) , CONWORK ) ; 
SET20NE(WBUF(48) ) ; MVC(79,WBUF(52 ) , CBUF) ; 

RO := aWBUF; WRITE; MVC ( 131 , WBUF , BLANK) ; 

END; 

CP := 0; R4 := SAVE4; 

END; 

PROCEDURE SCANIR4); 

BEGIN INTEGER SAVE4, SI, S2 ; 

SAVE4 := R4; RO := 0; NUMBERVALUE := RO; 

WHILE TRUE DO 
BEGIN 

IF CP > TEXTLIMIT THEN GETCARD ELSE 
BEGIN COMMENT BRANCH ON NEXT CHARACTER IN CBUF; 
IC(R1,CBUF(CP) ) ; R1 := R1 AND MASK; 
IC(R2,CHARTYPE(R1) ) ; R2 := R2 AND MASK; 

IF R2 < 10 THEN CASE R2 OF 
BEGIN 

COMMENT CASE 1: ILLEGAL CHARACTER; 

BEGIN 

IF ENDIT THEN 
BEGIN 

R1 := l; TOKEN ;= Rl; GOTO LI; 

END; 

XR := 2; ERROR; 

END; 

COMMENT CASE 2: BLANK; 

BEGIN COMMENT SKIP OVER BLANKS; 

CP != CP + 1* 

IF CP <= TEXTLIMIT THEN 
BEGIN 

IC( R2,CBUF(CP) ) ; R2 := R2 AND MASK; 
WHILE R2 = 64 AND CP < TEXTLIMIT DO 
BEGIN 

CP := CP + l; IC(R2,CBUF(CP)); 

END ; 

END; 

IF CP -^= TEXTLIMIT THEN CP := CP - 1; 

END; 

COMMENT CASES 3 S 4 NOT USED; 

NULL; 

NULL; 

COMMENT CASE 5: A LETTER; 

BEGIN 

SI := CP; Rl := 0; S2 := Rl; 

F45 := OL; BCD := F45; 

WHILE TRUE DO COMMENT UNTIL END OF IDENT; 
BEGIN 

FOR CP := CP STEP 1 UNTIL TEXTLIMIT DO 
BEGIN 

IC(R1,CBUF(CP) ) ; Rl := Rl AND MASK; 
IC( R2,N0TLETTER0RDIGIT (Rl ) ) ; 

R2 := R2 AND MASK; 

IF R2 = 1 THEN 

BEGIN COMMENT END OF IDENTIFIER; 

IF CP > SI THEN R2 := CP - SI 
ELSE R2 := TEXTLIMIT - SI + CP 
+ 1; Rl ;= 0; SI := Rl; 

CP 5= CP •• 1* 

COMMENT R2 IS LENGTH OF IDENT; 

R5 := NUMTERMINALS SHLL 3; 

IF R2 <= RESERVEDLIMIT THEN 

FOR Rl := 8 STEP 8 UNTIL R5 DO 
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BEGIN 

F67 := V(R1) ; 

IF F67 = BCD THEN 
BEGIN 

R1 := R1 SHRL 3; 

TOKEN := R1 ; GOTO LI; 
END; 

END; 

COMMENT MUST BE <IDENT>; 

R1 := IDENT; TOKEN := Rl; 

GOTO Ll; 

END ELSE COMMENT LETTER OR DIGIT; 
BEGIN 

R2 := S2 + l; S2 := R2; 

IF R2 <= 4 THEN 
BEGIN 

R4 ;= R4 - R4; BCDHIGH := R4; 
IC(R4tCBUF(CP) ) ; 

R4 := R4 AND MASK; 

R5 := BCDLOW SHLL 8 OR R4; 
BCOLOW := R5; 

END ELSE 
BEGIN 

IC(R4,CBUF(CP) ) ; 

R4 := R4 AND MASK; 

R5 := BCDHIGH SHLL 8 OR R4; 
BCDHIGH := R5; 

END; 

END; 

END; 

COMMENT END OF CARD; 

GETCARD; 

END; 

END; 

COMMENT CASE 6: DIGIT; 

BEGIN 

Rl := NUMBER; TOKEN := Rl; Rl := Rl - Rl; 
WHILE TRUE DO COMMENT UNTIL GOTO Ll; 
BEGIN 

FOR CP := CP STEP 1 UNTIL TEXTLIMIT DO 
BEGIN 

IC(R1,CBUF(CP) ) ; 

IF Rl < 240 THEN GOTO Ll; 

R3 := NUMBERVALUE * 10 + Rl - 240; 
END; 

GETCARD; 

END; 

END; 

COMMENT CASE 7; /; 

BEGIN 

Rl ;= DIVIDE; TOKEN := Rl; CP := CP + 1; 
GOTO Ll; 

END; 

COMMENT CASE 8: SPECIAL CHARACTER; 

BEGIN 

Rl := Rl SHLL 2; R2 := TX(Rl); 

TOKEN := R2; CP := CP + 1; GOTO Ll; 

END; 

COMMENT CASE 9: END OF FILE MARK,"."; 

BEGIN 

Rl := 1; TOKEN := Rl; GOTO Ll; 

END; 

END; COMMENT END OF CASE ON CHARTYPE; 

CP := CP + 1; 

END; 

END; 

Ll: R4 := SAVE4; 

END; 

PROCEDURE PRINTIMEIR6) ; NULL; 

COMMENT THIS PROCEDURE SHOULD GET TIME OF DAY AND INSERT 
INTO WBUF( 18)-WBUF( 22) , FORMAT ''13:37"; 
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PROCEDURE PRINTDATE(R6) ; NULL; 

COMMENT THIS PROCEDURE SHOULD GET TODAY'S DATE AND INSERT 
INTO WBUF(9)-WBUFI 14) , FORMAT "72.153"; 

PROCEDURE INITIALIZE(R4) ; 

COMMENT THIS PROCEDURE SETS VARIABLES TO BE USED IN THE 

PROGRAM. IT SHOULD ALSO SAVE THE CURRENT TIME OF 
DAY TO BE USED IN PROCEDURE SUMMARIZE; 

BEGIN INTEGER SAVE4; 

SAVE4 := R4; MVC ( 1 31 , WBUF , BLANK ) ; RO := 3WBUF; 

MVCI34, WBUF," REPLACE THIS HEADING WITH ONE OF"); 
MVC(32,WBUF(36),"Y0UR OWN — VERSION OF JUNE 1972."); 
WRITE; MVC(68, WBUF , BLANK) ; WRITE; WRITE; PRINTDATE; 
PRINTIME; MVC( 8, WBUF, "TODAY IS ")*, 

MVCIO, WBUF(16) ,"0") ; 

WRITE; MVC(131, WBUF, BLANK) ; WRITE; WRITE; 

R5 := NUMTERMINALS ; 

COMMENT SEARCH THE TERMINAL SYMBOLS FOR 
"<NUMBER>", "<IDENT>", AND "/"; 

FOR R1 := 1 STEP 1 UNTIL R5 DO 
BEGIN 

R2 := R1 SHLL 3; F45 := V(R2); 

IF F45 = #6D4F6DL THEN EOFILE := R1 ELSE 
IF F45 = #4CD5E4D4C2C5D96EL THEN NUMBER := R1 ELSE 
IF F45 = #4CC9C4C5D5E36EL THEN IDENT := R1 ELSE 
IF F45 = #61L THEN DIVIDE := R1 ; 

END; 

F45 := SC5D6C6L; COMMENT SAME AS "EOF"; V8 := F45; 

R3 := R3 - R3; IC(R3," "); R4 := 3CHARTYP E ( R3 ) ; 
MVI(2,B4); IC(R3,"."); R4 : = 3CHARTYPE ( R3 ) ; MVII9,B4); 

COMMENT IF LETTERS ARE TO BE RECOGNIZED, INSERT THE 

FOLLOWING LOOP. (NOTE, SEMICOLONS ARE REMOVED TO 
AVOID ENDING THIS COMMENT). 

FOR R1 := 0 STEP 1 UNTIL 29 DO 
COMMENT LENGTH OF ALPHABET IS 30 
BEGIN 

R3 := R3 - R3 I C ( R3 , AL PHAB ET (R1 ) ) 

R4 := aCHARTYPE(R3) MVI(5,B4) 

R4 := 3N0TLETTER0RDIGIT (R3) MVI(0,B4) 

R3 := R3 SHLL 2 TX(R3) := R1 
END; 

R3 1= R3 - R3; 

COMMENT SAME FOR NUMBERS: 

FOR R1 := 0 STEP 1 UNTIL 9 DO 
BEGIN 

IC(R3,NUMS(R1) ) R4 := 3CHARTYPE ( R3) MVI(6,B4) 

R4 := aN0TLETTER0RDIGIT(R3) MVI(0,B4) 

END; 

FOR R1 := 2 STEP 1 UNTIL R5 DO 
BEGIN 

R2 := R1 SHLL 3; F45 := V(R2); 

IF F45 < #FFL THEN 

BEGIN COMMENT SPECIAL CHARACTER; 

R3 ;= R3 - R3; R4 := R1 SHLL 3+7; 

IC(R3,V(R4) ) ; R4 := 3CHARTYP E ( R3 ) ; MVI(8,B4); 

R3 := R3 SHLL 2; TX( R3) := Rl; 

END ELSE COMMENT SET RESERVEDL I MI T ; 

BEGIN 

IF F45 < #FFFFL THEN R3 := 2 ELSE 
IF F45 < #FFFFFFL THEN R3 := 3 ELSE 
IF F45 < #FFFFFFFFL THEN R3 := 4 ELSE 
IF F45 < #FFFFFFFFFFL THEN R3 := 5 ELSE 
IF F45 < #FFFFFFFFFFFFL THEN R3 := 6 ELSE 
IF F45 < #FFFFFFFFFFFFFFL THEN R3 := 7 ELSE 
R3 := 8; 

IF R3 > RESERVEDLIMIT THEN 
BEGIN 
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R4 ;= R1 - R3 + 8; R5 := 3V(R4); CLICK", B5) 
IF -^= THEN RESERVEDLIMIT := R3; 

END; 

END; 

END; 

CP := TEXTLIMIT + 1; MVC (79 , CBUF , B LANK ) ; R1 := 0; 

SP := Rl; SET(LISTFLAG) ; RESET ( END I T) ; R4 := SAVE4; 
END; COMMENT END INITIALIZE; 

PROCEDURE EMIT(R4); NULL; 

COMMENT THIS PROCEDURE HAS THE RESPONSIBILITY OF SETTING 
THE NEXT ELEMENT OF THE CODE ARRAY TO THE OPCODE 
DETERMINED BY PROCEDURE SYNTHESIZE; 

PROCEDURE L00KUP(R4); NULL; 

COMMENT THIS PROCEDURE LOOKS UP A NAME IN THE SYMBOL TABLE 
AND ENTERS IT IF NOT THERE; 

PROCEDURE SYNTHESIZE(R4) ; NULL; 

COMMENT THIS PROCEDURE IS RESPONSIBLE FOR THE SEMANTICS OF 
THE COMPILER. IT TAKES THE FORM OF A LARGE CASE 
STATEMENT ON GLOBAL VARIABLE PRODNUM. ARRIVE HERE 
FROM THE CASE STATEMENT IN PROCEDURE ANALYZE; 

PROCEDURE PRINTSUMMARY(R4) ; 

COMMENT THIS PROCEDURE SHOULD SUBTRACT CURRENT TIME OF DAY 
WITH THAT SAVED IN PROCEDURE INITIALIZE AND STORE 
THE RESULT IN WBUF STARTING IN COLUMN 19; 

BEGIN INTEGER SAVE4; 

SAVE4 := R4; 

MVC( 17, WBUF, "TIME IN EXECUTION:"); RO := 3WBUF; WRITE 
MVCI17, WBUF, BLANK) ; 

R4 := SAVE4; 

END; 

PROCEDURE ANALYZE(R4); 

BEGIN INTEGER SAVE4, NEXTSYMBOL; 

ARRAY 75 INTEGER STATESTACK = 75(0); 

INTEGER STATENUM = 0, LASYMBOL = 0; 

PROCEDURE PUSHANDREAD(R4) ; 

BEGIN INTEGER SAVE4; 

SAVE4 := R4; Rl := SP ; 

IF Rl < 75 THEN 
BEGIN 

Rl := Rl + l; SP := Rl; 

END ELSE 
BEGIN 

XR := 3; ERROR; GOTO EXIT; 

END; 

Rl := TOKEN; NEXTSYMBOL := Rl; 

COMMENT SET VAR(SP) TO BCD AND VAL(SP) TO 
NUMBERVALUE; 

SCAN; R4 := SAVE4; 

END; COMMENT END PUSHANDREAD; 

INTEGER CYCLECNT = 0; SAVE4 := R4; 

WHILE TRUE DO 
BEGIN 

Rl := CYCLECNT + 1; CYCLECNT := Rl; 

Rl := SP SHLL 2; R2 := STATESTACK ( R 1 ) SHRL 8+1; 

CASE R2 OF 

BEGIN 

COMMENT CASE 1, READ VIA LINEAR SEARCH; 

BEGIN 

PUSHANDREAD; Rl := STATENUM SHLL 1; 

R2 := READSTART(Rl) ; Rl := Rl SHRL 1; 
IC(R3,RDNUM(R1) ); R3 := R3 AND MASK; 

R3 := R3 + R2; R4 := NEXTSYMBOL; 
IC(R5,SYMLIST(R2) ) ; R5 := R5 AND MASK; 

WHILE R4 -»= R5 AND R2 < R3 DO 
BEGIN 
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:= R2 + l; IC(R5, SYMLIST(R2) ) ; 



Ri; 



CASE 2, READ VIA AN ARRAY ACCESS; 



R2 

END; 

R2 := R2 SHLL 1; 

Rl ;= STATELIST(R2) AND MASKFFFF; 

R2 := SP SHLL 2; STAT EST ACK ( R2 ) := 

Rl := Rl AND MASK; STATENUM := Rl ; 

END; 

COMMENT 
BEGIN 

PUSHANDREAD; Rl := STATENUM SHLL 1; 

R2 := READSTART(Rl) + NEXTSYMBOL SHLL 1; 

Rl := STATELI ST(R2) AND MASKFFFF; 

R2 := SP SHLL 2; STAT ESTACK ( R2 ) := Rl; 

Rl := Rl AND MASK; STATENUM := Rl *, 

END; 

COMMENT 
BEGIN 
Rl 
Rl 
R2 
Rl 
Rl 
R2 
END; 

COMMENT 
BEGIN 

Rl := TOKEN; LASYMBOL := Rl; R2 := Rl SHRL 3 
R3 := Rl AND MASK?; R4 := 7 - R3; 

R5 := STATENUM SHLL 2 + R2; 

IC(R1,LATABLE(R5) ) ; 

Rl := Rl AND MASK SHRL R4 
IF Rl = 1 THEN 
BEGIN 

Rl := STATENUM SHLL 1; 

R2 := SUCCSTATE(Rl) ; 

END ELSE 
BEGIN 

Rl := STATENUM SHLL 1; 

R2 := FAILSTATEIRI } ; 

END; 

R2 := R2 AND MASKFFFF; Rl 
STATESTACK(Rl) := R2; R2 : 

STATENUM := R2; 

END; 

COMMENT CASE 5, LOOK AHEAD (FOR A PRODUCTION 
WITH AN EMPTY RIGHT PART); 

BEGIN 

Rl := TOKEN; LASYMBOL := Rl; R2 := Rl SHRL 3 
R3 := Rl AND MASK?; R4 := 7 - R3; 

R5 := STATENUM SHLL 2 + R2; 

IC(R1,LATABLE(R5) ) ; 

Rl := Rl AND MASK SHRL R4 AND MASKl; 

IF Rl = 1 THEN 
BEGIN 

Rl := SP SHLL 2; 

R2 := STATESTACK(R1 ) SHRL 8; 

WHILE R2 = 3 OR R2 = 4 DO 
BEGIN 

R3 := STATESTACKIRl ) AND MASK SHLL 1; 
R4 := FAILSTATE(R3) ; 

STATESTACK( Rl) := R4; 



CASE 3f REDUCE; 

STATENUM; PROONUM := Rl ; SYNTHESIZE; 
STATENUM; I C ( R2 , NUMTOPOP ( Rl ) ) ; 

R2 AND MASK; R3 := SP - R2 ; SP := R3 ; 
Rl SHLL l; R2 := RE DUCESUCC ( Rl ) ; 

SP SHLL 2; STATESTACK(Rl) := R2; 

R2 AND MASK; STATENUM := R2 ; 

CASE 4, LOOK AHEAD (ORDINARY); 



AND MASKl; 



:= SP SHLL 2; 
:= R2 AND MASK; 



R2 
END; 
Rl ; = 
Rl : = 

R 9 • = 

END ELSE 
BEGIN 
Rl : = 
R2 : = 
END; 

Rl ;= SP 



:= R4 SHRL 8; 

SP + l; SP := Rl; 
STATENUM SHLL 1; 
SUCCSTATE(R1 ) ; 



STATENUM SHLL 1; 
FAILSTATEIRI ) ; 



SHLL 2; STATESTACK(Rl) := R2 ; 
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R2 := R2 AND MASK; STATENUM := R2 ; 

END; 

COMMENT CASE 6, LOOK BACK; 

BEGIN 

R1 := SP - 1 SHLL 2; R2 := STATENUM; 
IC(R3iLBSTART(R2i ) ; R3 := R3 AND MASK; 
IC(R4»LBNUM(R2) ); R4 := R4 AND MASK + R3; 



R3 
R6 : = 
WHILE 
BEGIN 
R3 
R3 

END; 
R3 : = 
R2 : = 
R1 : = 
END; 
COMMENT 



R3 SHLL l; R5 
STATESTACK( Rl) , 



= LBSTATE(R3) 
R3 := R3 SHRL 



R6 -.= R5 AND R3 < R4 DO 



i; 



R3 

R3 



+ 1 SHLL 
SHRL l; 



R5 := LBSTATE(R3) 



R3 

SP 

Rl 



SHLL l; Rl := RE SUMESTATE ( R3) ; 
SHLL 2; STATESTACK(R2) := Rl; 
AND MASK; STATENUM : = Rl ; 



= SP - 1 SHLL 2; 



,, VR3LOW := Rl; 

VR3HI := Rl; 

;= STATENUM; 



CASE 7, ERROR; 

BEGIN INTEGER PREVERRCYCLE = #FFFFFFFF; 

Rl := CYCLECNT - 2; CYCLECNT := Rl; 

IF Rl 1= PREVERRCYCLE THEN 
BEGIN 

PREVERRCYCLE := Rl; Rl 
R2 := STATESTACK(Rl) ; 

IF R2 < 512 THEN 
BEGIN 

R2 := R2 AND MASK; 
IC(R3,SYMBEF0REREAD(R2) ) *, 

END ELSE 
BEGIN 

R2 := STATENUM; IC( R3,SYMBEFORELA(R2 ) ) 
END; 

R3 := R3 AND MASK SHLL 3; 

F45 := V( R3) ; VR3 := F45; 

Rl := VR3L0W OR BLANKMASK; 

Rl := VR3HI OR BLANKMASK; 

MVC(7,WBUF(32) , VR3) ; R3 
IF R3 = 255 THEN R3 := NEXTSYMBOL 
ELSE R3 := LASYMBOL; R3 := R3 SHLL 3; 

Rl := VR3L0w’0R BLANKMASK; VR3L0W := Rl; 
Rl := VR3HI OR BLANKMASK; VR3HI := Rl; 
MVC(7,WBUF(4i) ,VR3) ; XR := 4; ERROR; 

MVC( 17, WBUF, "PARTI AL PARSE IS: "); 

RO := aWBUF; WRITE; MVC ( 1 7 , WBUF , BLANK ) ; 

R2 := SP - 1 SHLL 2; 

FOR Rl := 8 STEP 4 UNTIL 
BEGIN 

R3 := STATESTACK(R1 ); 

IF R3 < 512 THEN 
BEGIN 

R3 := R3 AND MASK; 
IC(R4,SYMBEF0REREAD(R3) ); 

END ELSE 
BEGIN 

R3 ;= R3 AND MASK; 
IC(R4,SYMBEF0RELA(R3) ) ; 

END; 

R4 := R4 AND MASK SHLL 3; 

F45 := V(R4); VR3 := F45; 

Rl ;= VR3L0W OR BLANKMASK; 

VR3L0W := Rl; 

Rl := VR3HI OR BLANKMASK; VR3HI := Rl; 
MVC(7,WBUF(4) ,VR3 ); WRITE; 
MVC(7,WBUF(4) ,BLANK) ; 

END; 

END; 

NEXTSYMBOL; 

= 1 THEN 



R2 DO 



Rl 
IF Rl 
BEGIN 
XR 



:= 5; ERROR; 
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END ELSE 
BEGIN 

R1 := R1 SHLL 3; 

MVC(16,WBUF,"THE INPUT SYMBOL,"); 

F45 := V(R1) ; VR3 := F45 ; 

R1 := VR3L0W OR BLANKMASK; VR3L0W := R1 ; 

R1 := VR3HI OR BLANKMASK; VR3HI := Rl; 
MVC(7,WBUF(18) ,VR3 ) ; 

MVC( 17,WBUF(26) WILL BE IGNORED."); 

RO ;= aWBUF; WRITE; MVC(48,WBUF, BLANK) ; 
END; 

Rl ;= STATENUM; 

IF Rl = 255 THEN 
BEGIN 

COMMENT ERROR OCCURRED IN A READ STATE; 

Rl := SP - l; SP := Rl ; Rl := Rl SHLL 2; 

R2 := STATESTACK(Rl) AND MASK; 

STATENUM := R2; 

END ELSE 
BEGIN 

COMMENT ERROR OCCURRED IN A LOOK-AHEAD STATE; 
SCAN; COMMENT SKIP THE NEXT SYMBOL; 

Rl Z= Rl SHLL l5 

R2 := SUCCSTATE(Rl) AND MASKFFOO; 

R3 := SUCCSTATEIRI ) AND MASK; 
IC(R4,NUMT0P0P(R3) ) ; R4 := R4 AND MASK; 

IF R2 = 512 AND R4 -•= 255 THEN 
Rl := STATENUM OR #00000300 
ELSE Rl := STATENUM OR #00000400; 

R2 := SP SHLL 2; STATEST ACK( R2 ) := Rl; 

END; 

END; COMMENT END OF CASE 7; 

BEGIN COMMENT EXIT; 

Rl := l; TOKEN := Rl; Rl := 0; 

SP := Rl; STATESTACK(Rl) := Rl; 

STATENUM := Rl; GOTO XXX; 

END; 

END; COMMENT END OF CASE( STATETYPE) ; 

END; 

XXX; R4 := SAVE4; 

END; 

PROCEDURE MAIN(R4); 

BEGIN INTEGER SAVE4; 

SAVE4 ;= R4; 

INITIALIZE; 

ANALYZE; 

PRINTSUMMARY; 

R4 ;= SAVE4; 

END; 

main; 

EXIT; 

MVC(17,WBUF,"END OF COMPILATION"); RO ;= 3WBUF; WRITE; 

R2 ;= MEM(R13+4); RO ;= 0; 

MEM(R2+16) ;= RO; COMMENT SET RETURN CODE; 

END. 
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APPENDIX C 



OS/360 OPERATING SYSTEM INTERFACE 



ICTL 1,71,18 
SPACE 

❖ 

:{e :{« :{c :<c :{e :^c :{c # Sit :{« :{c * :{c * :{t :!< :{c # !j: # :!s :(c :{«#:{« :{e 4: :}: 4: :{c 45 :{e <e :{e ^ ^ :jc 

♦ 

« PLIO — THE RUNTIME DS INTERFACE FOR PROTOCQM 

❖ 

:{c :{c :Sc :$t Jifc :{c :(c :(c :$c :{c 3}c :{c :{c :}c 3}c :(c :£c :{c :{c :fc :(c :{c 



❖ 





SPACE 

MACRO 








CEP 


ENTER 

ENTRY 


CEP 








USING 


CEP ,15 






6EP 


STM 


12, 2, SAVE 


SAVE REGISTERS 




L 


12,=A($PL360IO) 


ESTABLISH ADDRESSING 




USING 


$PL360I0, 12 








DROP 

MEND 

SPACE 

MACRO 

EXIT 


15 








LM 


12, 2, SAVE 


RESTORE 


REGISTERS 




BR 


14 








DROP 


12 








MEND 

SPACE 


2 






$PL360I0 


CSECT 

SPACE 








LINELEN 


EQU 


132 


PRINTER 


LINE LENGTH 


LINESMAX 


EQU 


60 


PRINTER 


LINES/PAGE 




PRI NT 
SPACE 


NOGEN 







* GLOBAL PROCEDURE READ(R14) 





(RO) 


Z= 


BUFFER ADDRESS 






❖ 


(R13) 




SAVE AREA ADDRESS 








(R14J 




RETURN ADDRESS 






READ 


ENTER 

TM 




SYSIN+DOPEN,OPENMASK 


TEST FOR OPEN 


DCB 




BO 




READl 








LR 




2,0 








OPEN 




( SYSIN, (INPUT) ) 


ISSUE OPEN 






LR 




0,2 






READl 


CLI 




EOF,X'FF' 


TEST FOR PREVIOUS 


❖ 


BE 




ERRPROC 


END-OF-FILE 






GET 




SYSIN, (0) 


GET CARD 




READ2 


CLI 

EXIT 

SPACE 




EOF, 0 


SET CONDITION 


CODE 




USING 




EOD EXIT ROUTINE 
$PL360IO, 12 






ENDRDR 


MVI 




EOF,X' FF' 


EODAD EXIT 






B 




READ2 








DROP 




12 








SPACE 




2 






* GLOBAL PROCEDURE WRITE(R14} 






❖ 


(RO) 


= 


BUFFER ADDRESS 






❖ 


(R13) 


ZT 


SAVE AREA ADDRESS 






❖ 


( R14) 


= 


RETURN ADDRESS 






WRITE 


ENTER 

LR 




2,0 ' 








TM 




SYSOUT+DOPEN,OPENMASK 








BO 




WRITEl 
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*<«•* 





OPEN 


(SYSOUT, (OUTPUT ) ) 


WRITEl 


LR 


1,0 STORE BUFFER ADDRESS IN R1 




MVC 


ABUFF+K 132) ,0( 1) MOVE TO OUR BUFFER 




MVC 


ABUFF (1), CARRCONT CARRIAGE CONTROL TO ABUFF 




LA 


0, ABUFF 




PUT 


SYSOUT, (0) GET NEXT BUFFER 


* 




ADDRESS IN R1 




MVC 


0(1,1) ,CARRCONT SET CONTROL CHARACTER 




CL I 


CARRCONT, C • 1* 




BNE 


WRITE2 




MVI 


LINECNT, 0 RESET LINE COUNT 




MVI 


CARRCONT, C* ' 


WRITE2 


MVC 


1(LINELEN,1),0(2) TRANSFER BUFFER 




IC 


2, LINECNT INCREMENT LINE COUNT 




LA 


2,1(,2) 




STC 


2, LINECNT 




CLI 


LINECNT, LINESMAX TEST FOR FULL PAGE 




BL 


WRITES 




MVI 


CARRCONT, C* 1* SET SKIP 


WRITE3 


LM 


12, 2, SAVE 




BR 


14 




DROP 


12 




SPACE 
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* GLOBAL PROCEDURE PAGE(R14) 




( R14) 


= RETURN ADDRESS 




ENTRY 


PAGE 




USING 


PAGE, 15 


PAGE 


MVI 


CARRCONT, C 1* 




BR 


14 




SPACE 
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^ GLOBAL PROCEDURE PUNCH(R14) 


* 


(ROI 


= BUFFER ADDRESS 




(R13) 


= SAVE AREA ADDRESS 


* 


(R14) 


= RETURN ADDRESS 


PUNCH 


ENTER 






TM 


SYSPUNCH+DOPEN, OPENMASK 




BO 


PUNCHl 




LR 
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OPEN 


(SYSPUNCH, (OUTPUT) ) 




LR 


0,2 


PUNCHl 


PUT 

EXIT 


SYSPUNCH, (0) PUT CARD IMAGE 




SPACE 
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SYSOUT 


DCB 


DSORG=PS,MACRF=PL,DDNAME=SYSPRINT,DEVD=DA, 
RECFM=FBA,LRECL=LINELEN+1, BFTEK=S, EROPT=ABE 


SYS IN 


DCB 


DSORG=PS,MACRF=GM,DDNAME=SYSIN, DEVD=DA, 
RECFM=FB, LRECL=80,BFTEK=S,ER0PT=ABE, 
EODAD=ENDRDR 


SYSPUNCH 
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SAVE 


DS 


7F 
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DC 
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EOF 
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X'OO* PRINTER LINE COUNT 
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DS 
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CL133 


$PL360I0 


CSECT 




DOPEN 
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DCBOFLGS-IHADCB BYTE SET BY OPEN 


OPENMASK 


EQU 

END 


X'lO' 
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